FINISH  
/CLEAR  
!
/FILN,E354
/TITLE,REINFORCEMENT
*AFUN,DEG                           ! 趨Ƕȵλ
*SET,D1,500                         ! Ͳھ  
*SET,L1,350                         ! Ͳ峤  
*SET,T,6                            ! Ͳ  
*SET,T1,6                           ! ǿ  
*SET,XD1,250                        ! ǿȦ⾶  
*SET,XD,125                         ! ǿȦھ  
*SET,XL,150                         ! ӹܳ  
*SET,XT,6                           ! ӹܺ 
*SET,P,3                            ! ʩѹֵ  
*SET,GAP,0.2                        ! ǿȦͲ֮亸
*SET,CT_H1,TAN(35)*T1               ! 츨Ƴߴ   
*SET,CT_H2,6
*SET,CT_H3,6
*SET,CT_H4,2
*SET,R,3                            ! ǰ뾶
QY=-P*(XD-2*XT)**2/(4*XT*(XD-XT))   ! ӹغɱ߽
QZ=-P*D1**2/(4*T*(D1+T))            ! Ͳغɱ߽
/PREP7  
!嵥Ԫ
ET,1,SOLID45                        ! ʵ嵥Ԫ
ET,2,TARGE170                       ! Ŀ굥Ԫ170   
ET,3,CONTA173                       ! ӴԪ173
KEYOPT,3,5,3                        ! رշ϶
R,1,0,0,0.01,0,-GAP,0               ! 趨ʵ
MP,EX,1,2.1E5                       ! 벹ǿȦϵģ
MP,PRXY,1,0.3                       ! 벹ǿȦϲɱ
MP,EX,2,1.9E5                       ! ӹܲϵģ
MP,PRXY,2,0.3                       ! ӹܲϲɱ
MP,EX,3,1.91E5                      ! ϵģ
MP,PRXY,3,0.3                       ! ϲɱ
!Ͳӹģ
CYLIND,D1/2,D1/2+T,,L1,,90          ! 1/4Ͳ   
WPROTA,0,-90                        ! ƽת-90  
CYLIND,,XD1/2+T,,T1+D1/2+T,,-90     ! Ͳ,ڵõǿ⾶1 
CYLIND,,XD/2+XT+CT_H2,,T1+D1/2+T,,-90    !Ͳ壬ڷָǿھ9  
CYLIND,,XD/2+XT+CT_H4,,T1+D1/2+T,,-90    !Ͳ壬ڷָ17
BOPT,NUMB,OFF   
VOVLAP,ALL                          ! 
VDELE,6,11,1,1                      ! ɾ壬
CYLIND,XD/2,XD/2+XT,,XL+D1/2+T,,-90      ! ӹ
CYLIND,XD/2+XT,XD1/2,,T1+D1/2+2*T,,-90   ! Ͳ壬ڷָ23 
WPSTYL,DEFA                              ! ָƽ
CYLIND,D1/2+T+GAP,D1/2+2*T,,L1,,90       ! Ͳ壬ڷָǿȦԤ϶
VOVLAP,ALL                               !   
VDELE,4, , ,1                            ! ɾ壬23
VDELE,6,8,1,1         
VDELE,15,16,1,1
VDELE,19,22,1,1     
VEXT,80,,,0,XL,0,,,,                     ! 棬ɽӹ
WPROTA,0,-90                             ! ƽת-90 
CYLIND,,XD/2+T1+CT_H1+CT_H2,0,500,,-90   ! Ͳ壬ڷָ34  
VOVLAP,2,18                              ! Ͳ벹ǿȦ
VDELE,5,,,1                              ! ɾ壬4
WPSTYL,DEFA                              ! ָƽ
CYLIND,,D1/2+T+T1+CT_H3,,L1,,90          ! Ͳ壬ڷָ35 
VOVLAP,1,2                               ! Ͳӹ
VDELE,7,,,1                              ! ɾ壬5
CYLIND,,D1/2+T-CT_H4,,L1,,90             ! Ͳ壬ڷָ18 
VOVLAP,1,9                               ! ͲͲ
VDELE,8,,,1                              ! ɾ壬8
VEXT,50,52,2,0,100,0,,,,                 ! 棬Ա㴴Ͳ֮϶
VOVLAP,1,3,8                             ! 
VDELE,9,15,6,1                           ! ɾ壬õ6
! ⺸  
ASKIN,138,116
ASKIN,98,72
AL,15,136,13,114
AL,14,137,11,115
VA,3,4,7,86,6,66                         ! 湹,ͬʱõ2
!ں
ASKIN,48,27
ASKIN,48,102
AL,16,18,78,130,96  
AL,17,19,74,126,83 
VA,13,14,15,8,47,51,79 
ASKIN,101,27
VSBA,12,16                               ! ú3ɵ潫ǿȦָ,õʵ
ASKIN,65,23
VSBA,13,43                               ! ú2ɵ潫Ͳָ,õʵ
! ӹܵ
AFILLT,30,41,R,                          ! ڽӹܵײ洴
VSBA,17,58                               ! õзֽӹ
VDELE,13, , ,1                           ! ɾʵ
NUMMRG,ALL                               ! ʵϢѹ
NUMCMP,ALL                               ! ʵϢ
VGLUE,1,4,10                             ! ճ⺸Ͳ
VGLUE,2,3,6,7,15,17,19                   ! ճںӹ
!ѡ
VSEL,S,VOLU,,1,3,1
VSEL,A,VOLU,,7,9,2
VSEL,A,VOLU,,12,20,4
VSEL,A,VOLU,,18,21,3
CM,WELD,VOLU                              ! ӹ
ALLSEL
VSEL,S,VOLU,,23,24,1
VSEL,A,VOLU,,5
CM,PIPE,VOLU                              ! ӹ
ALLSEL
VSEL,S,VOLU,,4,8,4
CM,FILL,VOLU                              ! ǿȦ
ALLSEL
VSEL,S,VOLU,,10,11,1
VSEL,A,VOLU,,13,14,1
CM,CAN,VOLU                               ! Ͳ
!
ALLSEL
ASEL,S,AREA,,2,5,3,1
ACCAT,ALL                                 ! ͲԽǶ˲漰
ESIZE,6                                   ! 趨ԪС
MSHAPE,0,3D                               ! 趨Ԫ״
MAT,3                                     ! 3
VSEL,S,VOLU,,WELD,1                       ! ѡк
MSHKEY,1                                  ! ӳ񻮷
VSWEEP,ALL                                ! ֺ
ALLSEL
ESIZE,12                                  ! 趨ԪС
VSEL,S,VOLU,,PIPE,1                       ! ѡнӹ
MAT,2                                     ! 2
VSWEEP,ALL                                ! ֽӹ
ALLSEL
ESIZE,12                                  ! 趨ԪС
VSEL,S,VOLU,,FILL,1                       ! ѡвǿȦ
MAT,1                                     ! 1
VSWEEP,ALL                                ! ֲǿȦ
ALLSEL
ESIZE,20                                  ! 趨ԪС
VSEL,S,VOLU,,CAN,1                        ! ѡͲ
MAT,1                                     ! 1
VSWEEP,ALL                                ! ֹ          
NUMMRG,ALL                                ! ϲԪ
NUMCMP,ALL                                ! ±

!Ӵ
ALLSEL
ASEL,S,AREA,,19,46,27                     ! ѡͲ벹ǿȦϱ
TYPE,3                                    ! ӴԪ
REAL,1                                    ! ʵ1
NSLA,S,1                                  ! ѡнڵ
ESLN,S,0                                  ! ѡڽڵеԪ
ESURF,ALL                                 ! ʩӽӴԪ
ALLSEL
ASEL,S,AREA,,60                ! ѡвǿȦ±
TYPE,2                         ! Ŀ굥Ԫ
NSLA,S,1                       ! ѡнڵ
ESLN,S,0                       ! ѡڽڵеԪ
ESURF,ALL                      ! ʩĿ굥Ԫ
!
/SOLU
!ʩԼغ
ALLSEL                         ! ȫѡ
NSEL,S,LOC,Z,L1                ! ѡͲ߽ڵ
SF,ALL,PRES,QZ                 ! ʩѹ
ASEL,S,AREA,,1                 ! ѡӹϱ߽
NSLA,S,1                       ! ѡнڵ
SF,ALL,PRES,QY                 ! ʩѹ
NSEL,S,LOC,X,0                 ! ڶԳʩӶԳԼ
DSYM,SYMM,X
NSEL,S,LOC,Y,0                 
DSYM,SYMM,Y
NSEL,S,LOC,Z,0
DSYM,SYMM,Z
CSYS,1                         ! ϵ
NSEL,S,LOC,X,D1/2              ! ѡͲڱнڵ
WPROTA,0,-90                   ! תƽ
CSWPLA,11,1,1,1,               ! ԹƽΪ׼ûϵ
CSYS,11                        ! ûϵ
NSEL,A,LOC,X,XD/2              ! ѡнӹڱڽڵ
SF,ALL,PRES,P                  ! ʩѹ
!趨ѡ
OUTRES,ALL,ALL                 ! н 
TIME,10                        ! 趨ʱ䲽
NSUB,200                       ! 趨Ӳ
NROPT,FULL                     ! N-LѡΪFULL
PRED,ON                        ! ʱ䲽Ԥ
LNSRCH,ON                      ! 
AUTOTS,ON                      ! Զʱ䲽
NLGEOM,ON                      ! 򿪴
ALLSEL                         ! ȫѡ
SOLVE                          ! 
FINISH
!
/POST1
PLNSOL, S,INT, 2,1.0           ! 쿴ڵӦͼ
/DEVICE,VECTOR,1               ! úڰ׵ֵʾ
PLNSOL, CONT,STAT, 2,1.0       ! 쿴Ӵ״̬
SET, , ,1, ,0.3, ,  
PLNSOL, CONT,PRES, 2,1.0       ! 쿴Ӵѹ(TIME=0.3)
SET, , ,1, ,3, ,
PLNSOL, CONT,PRES, 2,1.0       ! 쿴Ӵѹ(TIME=3)
SET, , ,1, ,10, , 
PLNSOL, CONT,PRES, 2,1.0       ! 쿴Ӵѹ(TIME=10)